echo 开始编译代码
dcc32 Project1.dpr
echo 编译完毕

echo 获取时间字符串
set ThisDay=%date:~0,4%_%date:~5,2%_%date:~8,2%
if "%time:~0,2%" lss "10" (
set ThisTime=0%time:~1,1%_%time:~3,2%
) else (
set ThisTime=%time:~0,2%_%time:~3,2%
)
set Now=%ThisDay%_%ThisTime%

echo 创建发布目录
mkdir d:\publish\%Now%\

echo 发布到发布目录供下载，需要多少文件拷贝多少文件，覆盖模式拷贝
copy Project1.exe d:\publish\%Now%\ /Y
copy 发布说明.txt d:\publish\%Now%\ /Y

echo 自动编译完毕
